Public NotInheritable Class frmProgressBar


    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Public Property ProgressMax() As Integer
        Get
            Return Me.ProgressBar.Maximum
        End Get

        Set(ByVal Value As Integer)
            ProgressBar.Maximum = Value
        End Set
    End Property

    Public Property Message() As String
        Get
            Return Me.txtMessage.Text
        End Get

        Set(ByVal Value As String)
            Me.txtMessage.Text = Value
            Me.Refresh()
        End Set
    End Property


End Class
